home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib42b.dsk / DEMO GAME.bas < prev    next >
Encoding:
BASIC Source File  |  1990-01-01  |  743 b   |  26 lines
  1. 10 <UNKNOWN TOKEN>
  2. 20  HOME 
  3. 40 X = 0
  4. 50 <UNKNOWN TOKEN>
  5. 60 X = X +1:R1 = 0.1:R2 = 0
  6. 70 <UNKNOWN TOKEN>R1 < >R2<UNKNOWN TOKEN>
  7. 80 TT =  INT(TT +R1 +R2)
  8. 85  IF P(X) +TT > = 100  THEN 210
  9. 90  VTAB 10: CALL  -868
  10. 95  PRINT "PLAYER "X;: INPUT " ROLL OR  QUIT(R,Q) ";C$
  11. 100  IF C$ = "R"  THEN <UNKNOWN TOKEN>
  12. 110 <UNKNOWN TOKEN>
  13. 120 R1 = 1 + INT(6 * RND(3)):R2 = 1 + INT(6 * RND(3)): PRINT R1,R2
  14. 130 <UNKNOWN TOKEN>
  15. 140 <UNKNOWN TOKEN>
  16. 150 R1 = 0:R2 = 0
  17. 160 <UNKNOWN TOKEN>
  18. 165 <UNKNOWN TOKEN>
  19. 170 <UNKNOWN TOKEN>
  20. 180  PRINT "TURN OVER": FOR ZZ = 1 TO 1000: NEXT ZZ
  21. 185  IF R1 = 0  THEN P(X) = P(X) +TT
  22. 187 TT = 0: HOME : PRINT "PLAYER 1: "P(1): PRINT "PLAYER 2: "P(2)
  23. 190 <UNKNOWN TOKEN>X = 2
  24. 200  GOTO 40
  25. 210  PRINT "PLAYER "X" WINS!!!"
  26. 220  END